home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs30.d81 / 1581bug.dem (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  36 lines
  1. 100 PRINT CHR$(147)
  2. 110 PRINT "THIS PROGRAM DEMONSTRATES A BUG"
  3. 120 PRINT "WITH  THE 1581 DISK DRIVE."
  4. 130 PRINT
  5. 140 PRINT "TRY RUNNING IT ONCE AS IS."
  6. 150 PRINT "NO PROBLEMS RIGHT?"
  7. 160 PRINT "CAN YOU SEE ANYTHING WRONG WITH IT?"
  8. 170 PRINT
  9. 180 PRINT "NOW TRY CHANGING THE OPEN STATEMENT"
  10. 190 PRINT "IN LINE 1000 SO THAT IT USES A "
  11. 200 PRINT "SECONDARY ADDRESS OF 1"
  12. 210 PRINT "THIS TIME RUN IT ON A SCRAP DISK,"
  13. 220 PRINT "BECAUSE THE FILE WILL OVERWRITE"
  14. 230 PRINT "THE BAM AND THE DISK GETS TRASHED!"
  15. 240 PRINT
  16. 250 PRINT "I DON'T KNOW...YOU TELL ME?
  17. 260 [155] 1000[171]
  18. 270 [128]
  19. 290 [143]
  20. 300 [143] MY GUESS IS THAT THE 81 ASSUMES THAT ANY
  21. 310 [143] TIME YOU OPEN A FILE WITH SA=1  THAT YOU
  22. 320 [143] WILL CLOSE THE FILE BEFORE TRYING TO
  23. 330 [143] ACCESS ANY OTHER FILES. (LIKE WITH SAVE)
  24. 340 [143]
  25. 350 [143] SINCE USING AN SA OF 1 WAS FOUND TO BE
  26. 360 [143] A 'FIX' TO THE 1571'S SECOND SIDE SLOW
  27. 370 [143] DOWN PROBLEM, THIS BUG MAY TURN OUT TO
  28. 380 [143] BE A PARTICULARLY DEVASTATING ONE.
  29. 390 [143]
  30. 1000 [159] 2,8,2,"WRITE FILE,P,W"
  31. 1010 [159] 1,8,0,"$0:*"
  32. 1020 [161]#1,A$:S[178]ST:[139] S[178]0 [167] 1020
  33. 1030 [160] 1
  34. 1040 [152]2,"ONE":[152]2,"TWO":[160]2
  35. 1050 [143] 04/09/87 - CS
  36.